DEFUN.LSP[MAC,LSP] - www.SailDart.org

perm filename DEFUN.LSP[MAC,LSP] blob sn#213204 filedate 1976-05-23 generic text, type T, neo UTF8

(COMMENT THIS IS THE STANDARD MIT LISP DEFINING FUNCTION)

(DM DEFUN (L)
    (PROG (NAME VARS BODY TYPE)
	  (SETQ NAME (CADR L))
	  (COND ((EQUAL (LENGTH L) 4) (SETQ TYPE (QUOTE EXPR))
				      (SETQ L (CDDR L)))
		(T (SETQ TYPE (CADDR L))
		   (SETQ L (CDDDR L))))
	  (SETQ VARS (CAR L))
	  (SETQ BODY (CADR L))
	  (RETURN (LIST (QUOTE DEFPROP)
			NAME
			(LIST (QUOTE LAMBDA) VARS BODY)
			TYPE))))